home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCNOMY / HERSCHEL.LZH / HELP.INC < prev    next >
Text File  |  1986-12-08  |  7KB  |  106 lines
  1. Procedure MainMenuHelp;
  2. { Write help information on the screen }
  3.   Begin { Procedure MainMenuHelp }
  4.     Window(1,1,80,25); { Set to full screen }
  5.     Row := 1; { For procedure memorywrite }
  6.     Col := 1;
  7.     ClrScr;
  8.     ConOutPtr := Ofs(MemoryWrite); { Activate screen output driver }
  9.     Write(#13); { This writes a blank line }
  10.     Write('Hbase is an on-line version of the Herschel catalog of deep sky objects.',#13);
  11.     Write('Users are encouraged to distribute the program freely on a non-profit basis',#13);
  12.     Write('only. Please direct suggestions or questions to the author at this address:',#13);
  13.     Write(#13);
  14.     Write('                           Gary D. Williams',#13);
  15.     Write('                           Rt. 1, Box 138C',#13);
  16.     Write('                           Morgan, Utah 84050',#13);
  17.     Write(#13);
  18.     Write('Special thanks is in order to Dennis Donnelly, who painstakingly keyed the',#13);
  19.     Write('entire data file, and made it available for this project. Thanks also to',#13);
  20.     Write('Gary Liptrot, who helped with adding the constellation information.',#13);
  21.     Write(#13,#13);
  22.     Write('  As far as how to use the program is concerned, hands-on experience is the',#13);
  23.     Write('only real way to become proficient. The basic idea is this: When the main menu',#13);
  24.     Write('first comes up, the top line tells you that there are currently 2510 objects',#13);
  25.     Write('selected. Your task is to narrow down this list, selecting only those objects',#13);
  26.     Write('that match your current season, location, or interests.',#13);
  27.     Write(#13,#13,#13,#13,#13,'                     Press the space bar to continue');
  28.     WaitForSpace;
  29.     ClrScr;
  30.     Row := 1;
  31.     Col := 1;
  32.     Write(#13,'You do this through the 7 indented selection options. These menus will allow',#13);
  33.     Write('you to select out only those objects that match what you are after. (you can',#13);
  34.     Write('select particular constellations, ranges of R.A. etc.) You can select from',#13);
  35.     Write('any or all of the 7 select options, and you can return to an option as often',#13);
  36.     Write('as you like to change what you have already entered. The whole idea here is to',#13);
  37.     Write('work up a sub-file containing a manageable number of objects. You can always',#13);
  38.     Write('type "E" to examine the status of your selections so far. When you are done',#13);
  39.     Write('with all your selections, you must sort your data. The sort is where all of',#13);
  40.     Write('the objects that match your selections are pulled from the main catalog.',#13);
  41.     Write('When the sort is complete, you are returned to the main menu, where you can',#13);
  42.     Write('view, print, or precess your new list. You can also select the new list down',#13);
  43.     Write('further, re-selecting and re-sorting as often as you like, narrowing down',#13);
  44.     Write('your choices as you go. When you finally type I to initialize, you will be once',#13);
  45.     Write('more back to an empty file with the select values set to select all objects.',#13);
  46.     Write('The program assumes that with each successive select-and-sort, you will want',#13);
  47.     Write('to narrow down further what you have already selected. On occasion though, you',#13);
  48.     Write('will want to expand on your current selections, adding to what you already',#13);
  49.     Write('have. To add new object types or Herschel classes, you can toggle the',#13);
  50.     Write('expansion on, which will allow you to do this. Expansion will stay on until',#13);
  51.     Write('you toggle it off or do an initialize.',#13);
  52.     Write(#13,#13,#13,'                     Press the space bar to continue');
  53.     WaitForSpace;
  54.     ClrScr;
  55.     Row := 1;
  56.     Col := 1;
  57.     Write(#13,'  Here is a sample run:',#13);
  58.     Write('  You are about to go out and do some telescopic observing, so you will need a',#13);
  59.     Write('list of objects to try for. You begin by selecting a range of R.A. that matches',#13);
  60.     Write('the current season. You may want to concentrate on star clusters tonight, so',#13);
  61.     Write('you select object types for open clusters, globulars, and clusters/nebulae.',#13);
  62.     Write('You then sort these selections by constellation, and view the result on the',#13);
  63.     Write('screen. There are more clusters than you could begin to see in a night, so you',#13);
  64.     Write('select further, asking for only a particular couple of constellations. After',#13);
  65.     Write('re-sorting, you precess the listing to the current epoch, and print it. This',#13);
  66.     Write('whole process takes less than a minute, and you''re set with a customized,',#13);
  67.     Write('disposable observing list.',#13);
  68.     Write(#13);
  69.     Write('Misc. hints for using Hbase follow.',#13);
  70.     Write(#13);
  71.     Write('All possible keystrokes for the menus are highlighted. If you are not seeing',#13);
  72.     Write('this, adjust your brightness or contrast!',#13);
  73.     Write(#13);
  74.     Write('The epoch of the catalog is 1975.0',#13);
  75.     Write(#13,#13,#13,#13,#13,'                     Press the space bar to continue');
  76.     WaitForSpace;
  77.     ClrScr;
  78.     Row := 1;
  79.     Col := 1;
  80.     Write(#13,'When you select the View option, the following keys apply:',#13);
  81.     Write('  Page Up / Page Down.',#13);
  82.     Write('  Home : to top of list.',#13);
  83.     Write('  End  : to end of list.',#13);
  84.     Write('  "S"  : seek record of a given sequence number.',#13);
  85.     Write('  "E"  : skip halfway from current position to end of file.',#13);
  86.     Write('  "B"  : skip halfway from current position to beginning of file.',#13);
  87.     Write('  "Q"  : quit the viewer and return to the main menu.',#13);
  88.     Write(#13);
  89.     Write('You may want to sort and print the entire catalog at least once. Be warned that',#13);
  90.     Write('it will go for about 45 pages.',#13);
  91.     Write(#13);
  92.     Write('Objects listed at magnitude 0.0 have unknown magnitudes. Likewise, any other',#13);
  93.     Write('questionable values of 0 are probably unknown.',#13);
  94.     Write(#13);
  95.     Write('When you enter the constellation selection menu when all constellations are',#13);
  96.     Write('selected (as immediately after an initialize), the program will assume that you',#13);
  97.     Write('intend to select one or more constellations so it will delete all constellations',#13);
  98.     Write('from consideration for you. If you select nothing, then the program will add',#13);
  99.     Write('them all back for you. Whenever one or more, but not all constellations are',#13);
  100.     Write('selected, the menu will reflect the current status, and your selections will',#13);
  101.     Write('remain unchanged.',#13);
  102.     Write(#13,'                 Press the space bar to return to the main menu',#13);
  103.     WaitForSpace;
  104.     ConOutPtr := AuxOutPtr; { De-activate screen output driver }
  105.   End; { Procedure MainMenuHelp }
  106.